my_font <- "sans"
my_bkgd <- "white"

my_theme <- theme(
  text = element_text(family = my_font, color = "#22211d"),
  rect = element_rect(fill = my_bkgd),
  plot.background = element_rect(fill = my_bkgd),
  panel.background = element_rect(fill = my_bkgd),
  panel.border = element_rect(color = "transparent"),
  strip.background = element_rect(color = "transparent", fill = "transparent"),
  legend.background = element_rect(fill = my_bkgd, color = NA),
  legend.key = element_rect(linewidth = 4, fill = "white", colour = NA),
  legend.key.size = unit(1, "cm"),
  legend.text = element_text(size = 14, family = my_font),
  legend.title = element_text(size = 16, family = my_font, face = "bold"),
  # plot.title = element_markdown(size = 22, face = "bold", family=my_font),
  # plot.subtitle = element_markdown(size=16, family=my_font),
  axis.title = element_text(size = 20, family = my_font),
  axis.text = element_text(size = 16, family = my_font),
  axis.title.x = element_text(hjust = 1),
  strip.text = element_text(
    family = my_font,
    color = "#22211d",
    size = 16, face = "bold"
  ),
  plot.margin = margin(1, 1, 1, 1, "cm"),
  plot.caption = element_text(
    size = 12,
    family = my_font,
    hjust = 1,
    face = "italic"
  ),
  panel.grid = element_line(colour = "gray95", linewidth = 0.15, linetype = 1)
)


theme_set(theme_light() + my_theme)
#
# # base colors
lucid <- "#899DA4"
yougov <- "#CB2314"
facebook <- "#046C9A"